home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 17 / CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso / CUCD / Readers / AnimatED / AnimatED.install < prev    next >
Text File  |  1997-07-15  |  3KB  |  126 lines
  1.  
  2. ;************************************************
  3. ;*   AnimatED install script v1.42 (13-Jul-97)  *
  4. ;************************************************
  5.  
  6. ;*************
  7. ; Set strings
  8. ;*************
  9.  
  10. (set #where-prompt
  11. (cat "Where should I install AnimatED? \n (No directory will be created!)"
  12. ))
  13.  
  14. ;*************
  15. ; Ask dest dir
  16. ;*************
  17.  
  18. (set where (askdir (prompt #where-prompt)
  19.                    (help @askdir-help)
  20.                    (default @default-dest)
  21.            )
  22. )
  23.  
  24. (set @default-dest where)
  25.  
  26. ;***********
  27. ; Copy font
  28. ;***********
  29.  
  30. (copyfiles (source "Fonts") (dest "SYS:Fonts") (all))
  31. (complete 5)
  32.  
  33. ;************
  34. ; Copy files
  35. ;************
  36.  
  37. (copyfiles (source "AnimatED") (dest where))
  38. (complete 40)
  39. (copyfiles (source "AnimatEDPlay") (dest where))
  40. (complete 60)
  41. (copyfiles (source "AnimatED.Guide") (dest where))
  42. (complete 70)
  43. (copyfiles (source "AED_OrderForm") (dest where))
  44. (copyfiles (source "AED_OrderForm.info") (dest where))
  45. (complete 75)
  46. (copyfiles (source "ReadMe") (dest where))
  47. (copyfiles (source "ReadMe.info") (dest where))
  48. (copyfiles (source "AnimComp.txt") (dest where))
  49. (copyfiles (source "AnimComp.txt.info") (dest where))
  50. (complete 80)
  51.  
  52. ;****************************
  53. ; Ask which and install icons
  54. ;****************************
  55. (set #ICONS
  56.     (askchoice
  57.     (prompt "\nWhich type of icons do want to install?")
  58.     (help "\nHi! Just select one of the icon types.")
  59.         (default 0)
  60.     (choices
  61.                 "#1: Standard AnimatED Icons"
  62.                 "#2: MagicWB-Style Icons; 8 colours"
  63.                 "#3: Classic-WB-Style Icons; 4 colours"
  64.         )
  65.     )
  66. )
  67.  
  68. (if (= #ICONS 0)
  69.  (copyfiles (source "AnimatED.info") (dest where))
  70. )
  71. (if (= #ICONS 0)
  72.  (copyfiles (source "AnimatEDPlay.info") (dest where))
  73. )
  74. (if (= #ICONS 0)
  75.  (copyfiles (source "AnimatED.Guide.info") (dest where))
  76. )
  77.  
  78. (if (= #ICONS 1)
  79.  (copyfiles (source "icons/AnimatED_MWB.info") (newname "AnimatED.info") (dest where))
  80. )
  81. (if (= #ICONS 1)
  82.  (copyfiles (source "icons/AnimatEDPlay_MWB.info") (newname "AnimatEDPlay.info") (dest where))
  83. )
  84. (if (= #ICONS 1)
  85.  (copyfiles (source "icons/AnimatED_MWB.Guide.info") (newname "AnimatED.Guide.info") (dest where))
  86. )
  87.  
  88. (if (= #ICONS 2)
  89.  (copyfiles (source "icons/AnimatED.info") (dest where))
  90. )
  91. (if (= #ICONS 2)
  92.  (copyfiles (source "icons/AnimatEDPlay.info") (dest where))
  93. )
  94. (if (= #ICONS 2)
  95.  (copyfiles (source "icons/AnimatED.Guide.info") (dest where))
  96. )
  97.  
  98. ;**************************
  99. ; Copy keyfile if available
  100. ;**************************
  101.  
  102. (if (= (exists "AnimatED.key") 1)
  103.  (copyfiles (source "AnimatED.key") (dest where))
  104. )
  105.  
  106. ;********************
  107. ; Ask and copy extras
  108. ;********************
  109.  
  110. (set name
  111.  (askbool
  112.  (prompt "\nDo you want to install the example?")
  113.  (help "\nIt's up to YOU!")
  114.  )
  115. )
  116.  
  117. (if (= name 1)
  118.   (copyfiles (source "Example") (dest (tackon where "Example")) (all))
  119. )
  120.  
  121. (complete 100)
  122.  
  123. ;****
  124. ;End
  125. ;****
  126.